home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / MacScheme20 / Mathlib / udefs1.scm < prev    next >
Encoding:
Text File  |  1989-04-27  |  550 b   |  25 lines  |  [TEXT/????]
  1. ;;; $Header: udefs1.scm,v 1.3 88/08/26 20:04:45 GMT gjs Exp $
  2. ;;; last modification 8/20/88 (mh)
  3.  
  4. (if-mit (declare (usual-integrations)))
  5.  
  6. ;;; Everybody wants to know about these.
  7.  
  8. (define pi (* 4 (atan 1 1)))
  9. (define -pi (- pi))
  10. (define pi/2 (/ pi 2))
  11. (define -pi/2 (- pi/2))
  12. (define pi/4 (/ pi 4))
  13. (define -pi/4 (- pi/4))
  14. (define 2pi (+ pi pi))
  15. (define -2pi (- 2pi))
  16.  
  17. (define *machine-epsilon*
  18.   (let loop ((e 1.0))
  19.      (if (= 1.0 (+ e 1.0))
  20.          (* 2 e)
  21.          (loop (/ e 2)))))
  22.  
  23. (define *sqrt-machine-epsilon* 
  24.   (sqrt *machine-epsilon*))
  25.